home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / compuserve-file-archive / 09 Application Software / BAR.BIN / c64.bas
Unknown  |  2019-04-13  |  3.1 KB

open in: MacOS 8.1     |     Win98     |     DOS

view JSON data     |     view as text


This file was not able to be converted.
This format is not currently supported by dexvert.

ConfidenceProgramDetectionMatch TypeSupport
66% dexvert GW-BASIC (document/gwBasic) ext Supported
66% dexvert GFA-BASIC Atari (other/gfaBASICAtari) ext Supported
1% dexvert Amiga BASIC Protected File (other/amigaBASICProtectedFile) ext Unsupported
1% dexvert BAS VBDOS Pro 1.0 Source (other/basVBDOSPro10Source) ext Unsupported
1% dexvert Visual Basic Tokenized Source (other/visualBasicTokenizedSource) ext Unsupported
1% dexvert ZBASIC (other/zbasic) ext Unsupported
100% file data default
100% gt2 Kopftext: '0 REM - WRITTEN BY' default (weak)
100% detectItEasy Format: plain text[LF] default (weak)



hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 30 20 52 45 4d 20 2d 20 | 57 52 49 54 54 45 4e 20 |0 REM - |WRITTEN |
|00000010| 42 59 3a 20 4a 4f 4e 20 | 50 55 52 4b 45 59 2f 53 |BY: JON |PURKEY/S|
|00000020| 51 55 49 52 52 45 4c 20 | 20 20 20 20 20 20 20 20 |QUIRREL | |
|00000030| 30 31 2f 30 33 2f 39 32 | 20 2d 20 4d 59 20 5a 49 |01/03/92| - MY ZI|
|00000040| 50 2b 34 3a 20 32 32 33 | 31 32 2d 34 39 34 39 0a |P+4: 223|12-4949.|
|00000050| 31 20 3a 0a 32 20 52 45 | 4d 20 2d 20 49 20 44 4f |1 :.2 RE|M - I DO|
|00000060| 20 4e 4f 54 20 48 41 56 | 45 20 41 4e 59 20 44 4f | NOT HAV|E ANY DO|
|00000070| 43 55 4d 45 4e 54 41 54 | 49 4f 4e 20 20 20 20 20 |CUMENTAT|ION |
|00000080| 20 20 20 20 4f 4e 20 48 | 4f 57 20 54 48 45 20 5a | ON H|OW THE Z|
|00000090| 49 50 2b 34 20 42 41 52 | 43 4f 44 45 53 20 57 4f |IP+4 BAR|CODES WO|
|000000a0| 52 4b 2e 0a 33 20 52 45 | 4d 20 2d 20 49 20 57 52 |RK..3 RE|M - I WR|
|000000b0| 4f 54 45 20 54 48 49 53 | 20 50 52 4f 47 52 41 4d |OTE THIS| PROGRAM|
|000000c0| 20 41 46 54 45 52 20 20 | 20 20 20 20 20 20 20 20 | AFTER | |
|000000d0| 20 20 20 20 43 4f 4d 50 | 41 52 49 4e 47 20 41 4e | COMP|ARING AN|
|000000e0| 44 20 44 45 43 4f 44 49 | 4e 47 20 54 48 45 20 42 |D DECODI|NG THE B|
|000000f0| 41 52 2d 0a 34 20 52 45 | 4d 20 2d 20 43 4f 44 45 |AR-.4 RE|M - CODE|
|00000100| 53 20 4f 4e 20 53 45 56 | 45 52 41 4c 20 4d 41 47 |S ON SEV|ERAL MAG|
|00000110| 41 5a 49 4e 45 20 4d 41 | 49 4c 20 20 20 20 20 20 |AZINE MA|IL |
|00000120| 20 20 20 20 49 4e 20 43 | 41 52 44 53 20 41 4e 44 | IN C|ARDS AND|
|00000130| 20 4f 4e 20 4f 54 48 45 | 52 20 45 4e 56 45 4c 4f | ON OTHE|R ENVELO|
|00000140| 50 45 53 0a 35 20 52 45 | 4d 20 2d 20 57 49 54 48 |PES.5 RE|M - WITH|
|00000150| 20 54 48 45 20 43 4f 44 | 45 53 2e 20 49 27 4d 20 | THE COD|ES. I'M |
|00000160| 39 39 25 20 43 45 52 54 | 41 49 4e 20 20 20 20 20 |99% CERT|AIN |
|00000170| 20 20 20 20 49 20 48 41 | 56 45 20 49 54 20 43 4f | I HA|VE IT CO|
|00000180| 52 52 45 43 54 2c 20 42 | 55 54 20 49 27 4d 20 4e |RRECT, B|UT I'M N|
|00000190| 4f 54 0a 36 20 52 45 4d | 20 2d 20 4d 41 4b 49 4e |OT.6 REM| - MAKIN|
|000001a0| 47 20 41 4e 59 20 50 52 | 4f 4d 49 53 45 53 2e 20 |G ANY PR|OMISES. |
|000001b0| 3a 29 0a 37 20 3a 0a 38 | 20 3a 0a 39 20 3a 0a 31 |:).7 :.8| :.9 :.1|
|000001c0| 30 20 50 4f 4b 45 35 33 | 32 38 30 2c 31 34 3a 50 |0 POKE53|280,14:P|
|000001d0| 4f 4b 45 35 33 32 38 31 | 2c 36 3a 50 52 49 4e 54 |OKE53281|,6:PRINT|
|000001e0| 22 99 93 08 11 5a 49 50 | 2b 34 20 42 41 52 43 4f |"....ZIP|+4 BARCO|
|000001f0| 44 45 20 43 52 45 41 54 | 4f 52 20 2d 20 42 59 3a |DE CREAT|OR - BY:|
|00000200| 20 53 51 55 49 52 52 45 | 4c 22 0a 31 35 20 50 52 | SQUIRRE|L".15 PR|
|00000210| 49 4e 54 43 48 52 24 28 | 31 34 32 29 0a 32 30 20 |INTCHR$(|142).20 |
|00000220| 50 52 49 4e 54 22 20 31 | 3a 20 5a 49 50 2b 34 20 |PRINT" 1|: ZIP+4 |
|00000230| 54 4f 20 42 41 52 43 4f | 44 45 22 0a 32 35 20 50 |TO BARCO|DE".25 P|
|00000240| 52 49 4e 54 22 20 32 3a | 20 42 41 52 43 4f 44 45 |RINT" 2:| BARCODE|
|00000250| 20 54 4f 20 5a 49 50 2b | 34 22 0a 33 30 20 50 52 | TO ZIP+|4".30 PR|
|00000260| 49 4e 54 22 11 2d 3e 22 | 3b 0a 33 35 20 47 4f 53 |INT".->"|;.35 GOS|
|00000270| 55 42 39 39 30 3a 47 45 | 54 41 24 3a 49 46 41 24 |UB990:GE|TA$:IFA$|
|00000280| 3c 3e 22 31 22 41 4e 44 | 41 24 3c 3e 22 32 22 54 |<>"1"AND|A$<>"2"T|
|00000290| 48 45 4e 33 35 0a 34 30 | 20 49 46 41 24 3d 22 32 |HEN35.40| IFA$="2|
|000002a0| 22 54 48 45 4e 35 30 30 | 0a 34 35 20 3a 0a 31 30 |"THEN500|.45 :.10|
|000002b0| 30 20 50 52 49 4e 54 0a | 31 30 31 20 50 52 49 4e |0 PRINT.|101 PRIN|
|000002c0| 54 43 48 52 24 28 31 34 | 32 29 3a 42 24 3d 22 4c |TCHR$(14|2):B$="L|
|000002d0| 22 0a 31 30 32 20 50 52 | 49 4e 54 22 45 4e 54 45 |".102 PR|INT"ENTE|
|000002e0| 52 20 35 20 44 49 47 49 | 54 20 5a 49 50 20 43 4f |R 5 DIGI|T ZIP CO|
|000002f0| 44 45 3a 22 3b 0a 31 30 | 33 20 4d 58 3d 35 3a 47 |DE:";.10|3 MX=5:G|
|00000300| 4f 53 55 42 39 30 30 0a | 31 30 35 20 54 24 3d 58 |OSUB900.|105 T$=X|
|00000310| 24 3a 5a 24 3d 58 24 0a | 31 30 37 20 50 52 49 4e |$:Z$=X$.|107 PRIN|
|00000320| 54 3a 50 52 49 4e 54 22 | 11 45 4e 54 45 52 20 5a |T:PRINT"|.ENTER Z|
|00000330| 49 50 2b 34 20 43 4f 44 | 45 3a 22 3b 0a 31 30 38 |IP+4 COD|E:";.108|
|00000340| 20 4d 58 3d 34 3a 47 4f | 53 55 42 39 30 30 0a 31 | MX=4:GO|SUB900.1|
|00000350| 30 39 20 54 24 3d 54 24 | 2b 58 24 3a 50 24 3d 58 |09 T$=T$|+X$:P$=X|
|00000360| 24 0a 31 31 30 20 50 52 | 49 4e 54 22 93 11 5a 49 |$.110 PR|INT"..ZI|
|00000370| 50 2b 34 3a 20 22 5a 24 | 22 2b 22 50 24 3a 50 52 |P+4: "Z$|"+"P$:PR|
|00000380| 49 4e 54 0a 31 31 35 20 | 54 3d 30 3a 46 4f 52 58 |INT.115 |T=0:FORX|
|00000390| 3d 31 54 4f 39 0a 31 32 | 30 20 58 24 3d 4d 49 44 |=1TO9.12|0 X$=MID|
|000003a0| 24 28 54 24 2c 58 2c 31 | 29 0a 31 32 31 20 4f 4e |$(T$,X,1|).121 ON|
|000003b0| 56 41 4c 28 58 24 29 2b | 31 47 4f 53 55 42 32 31 |VAL(X$)+|1GOSUB21|
|000003c0| 30 2c 32 32 30 2c 32 33 | 30 2c 32 34 30 2c 32 35 |0,220,23|0,240,25|
|000003d0| 30 2c 32 36 30 2c 32 37 | 30 2c 32 38 30 2c 32 39 |0,260,27|0,280,29|
|000003e0| 30 2c 33 30 30 0a 31 33 | 35 20 4e 45 58 54 58 0a |0,300.13|5 NEXTX.|
|000003f0| 31 33 39 20 3a 0a 31 34 | 30 20 54 3d 54 2d 49 4e |139 :.14|0 T=T-IN|
|00000400| 54 28 54 2f 31 30 29 2a | 31 30 0a 31 34 32 20 4f |T(T/10)*|10.142 O|
|00000410| 4e 54 2b 31 47 4f 53 55 | 42 33 31 30 2c 33 32 30 |NT+1GOSU|B310,320|
|00000420| 2c 33 33 30 2c 33 34 30 | 2c 33 35 30 2c 33 36 30 |,330,340|,350,360|
|00000430| 2c 33 37 30 2c 33 38 30 | 2c 33 39 30 2c 34 30 30 |,370,380|,390,400|
|00000440| 0a 31 35 35 20 42 24 3d | 42 24 2b 22 4c 22 0a 31 |.155 B$=|B$+"L".1|
|00000450| 35 39 20 3a 0a 31 36 30 | 20 50 52 49 4e 54 22 4c |59 :.160| PRINT"L|
|00000460| 3a 20 4c 4f 4e 47 20 2f | 20 53 3a 20 53 48 4f 52 |: LONG /| S: SHOR|
|00000470| 54 11 22 0a 31 36 32 20 | 50 52 49 4e 54 22 42 41 |T.".162 |PRINT"BA|
|00000480| 52 43 4f 44 45 3a 20 22 | 42 24 0a 31 37 39 20 3a |RCODE: "|B$.179 :|
|00000490| 0a 31 39 38 20 47 4f 54 | 4f 38 30 30 0a 31 39 39 |.198 GOT|O800.199|
|000004a0| 20 3a 0a 32 31 30 20 54 | 3d 54 2b 30 3a 42 24 3d | :.210 T|=T+0:B$=|
|000004b0| 42 24 2b 22 4c 4c 53 53 | 53 22 3a 52 45 54 55 52 |B$+"LLSS|S":RETUR|
|000004c0| 4e 0a 32 32 30 20 54 3d | 54 2b 31 3a 42 24 3d 42 |N.220 T=|T+1:B$=B|
|000004d0| 24 2b 22 53 53 53 4c 4c | 22 3a 52 45 54 55 52 4e |$+"SSSLL|":RETURN|
|000004e0| 0a 32 33 30 20 54 3d 54 | 2b 32 3a 42 24 3d 42 24 |.230 T=T|+2:B$=B$|
|000004f0| 2b 22 53 53 09 00 4c 22 | 3a 52 45 54 55 52 4e 0a |+"SS..L"|:RETURN.|
|00000500| 32 34 30 20 54 3d 54 2b | 33 3a 42 24 3d 42 24 2b |240 T=T+|3:B$=B$+|
|00000510| 22 53 53 4c 4c 53 22 3a | 52 45 54 55 52 4e 0a 32 |"SSLLS":|RETURN.2|
|00000520| 35 30 20 54 3d 54 2b 34 | 3a 42 24 3d 42 24 2b 22 |50 T=T+4|:B$=B$+"|
|00000530| 53 4c 53 53 4c 22 3a 52 | 45 54 55 52 4e 0a 32 36 |SLSSL":R|ETURN.26|
|00000540| 30 20 54 3d 54 2b 35 3a | 42 24 3d 42 24 2b 22 53 |0 T=T+5:|B$=B$+"S|
|00000550| 4c 53 4c 53 22 3a 52 45 | 54 55 52 4e 0a 32 37 30 |LSLS":RE|TURN.270|
|00000560| 20 54 3d 54 2b 36 3a 42 | 24 3d 42 24 2b 22 53 4c | T=T+6:B|$=B$+"SL|
|00000570| 4c 53 53 22 3a 52 45 54 | 55 52 4e 0a 32 38 30 20 |LSS":RET|URN.280 |
|00000580| 54 3d 54 2b 37 3a 42 24 | 3d 42 24 2b 22 4c 53 53 |T=T+7:B$|=B$+"LSS|
|00000590| 53 4c 22 3a 52 45 54 55 | 52 4e 0a 32 39 30 20 54 |SL":RETU|RN.290 T|
|000005a0| 3d 54 2b 38 3a 42 24 3d | 42 24 2b 22 4c 53 53 4c |=T+8:B$=|B$+"LSSL|
|000005b0| 53 22 3a 52 45 54 55 52 | 4e 0a 33 30 30 20 54 3d |S":RETUR|N.300 T=|
|000005c0| 54 2b 39 3a 42 24 3d 42 | 24 2b 22 4c 53 4c 53 53 |T+9:B$=B|$+"LSLSS|
|000005d0| 22 3a 52 45 54 55 52 4e | 0a 33 30 39 20 3a 0a 33 |":RETURN|.309 :.3|
|000005e0| 31 30 20 42 24 3d 42 24 | 2b 22 4c 4c 53 53 53 22 |10 B$=B$|+"LLSSS"|
|000005f0| 3a 52 45 54 55 52 4e 0a | 33 32 30 20 42 24 3d 42 |:RETURN.|320 B$=B|
|00000600| 24 2b 22 4c 53 4c 53 53 | 22 3a 52 45 54 55 52 4e |$+"LSLSS|":RETURN|
|00000610| 0a 33 33 30 20 42 24 3d | 42 24 2b 22 4c 53 53 4c |.330 B$=|B$+"LSSL|
|00000620| 53 22 3a 52 45 54 55 52 | 4e 0a 33 34 30 20 42 24 |S":RETUR|N.340 B$|
|00000630| 3d 42 24 2b 22 4c 53 53 | 53 4c 22 3a 52 45 54 55 |=B$+"LSS|SL":RETU|
|00000640| 52 4e 0a 33 35 30 20 42 | 24 3d 42 24 2b 22 53 4c |RN.350 B|$=B$+"SL|
|00000650| 4c 53 53 22 3a 52 45 54 | 55 52 4e 0a 33 36 30 20 |LSS":RET|URN.360 |
|00000660| 42 24 3d 42 24 2b 22 53 | 4c 53 4c 53 22 3a 52 45 |B$=B$+"S|LSLS":RE|
|00000670| 54 55 52 4e 0a 33 37 30 | 20 42 24 3d 42 24 2b 22 |TURN.370| B$=B$+"|
|00000680| 53 4c 53 53 4c 22 3a 52 | 45 54 55 52 4e 0a 33 38 |SLSSL":R|ETURN.38|
|00000690| 30 20 42 24 3d 42 24 2b | 22 53 53 4c 4c 53 22 3a |0 B$=B$+|"SSLLS":|
|000006a0| 52 45 54 55 52 4e 0a 33 | 39 30 20 42 24 3d 42 24 |RETURN.3|90 B$=B$|
|000006b0| 2b 22 53 53 4c 53 4c 22 | 3a 52 45 54 55 52 4e 0a |+"SSLSL"|:RETURN.|
|000006c0| 34 30 30 20 42 24 3d 42 | 24 2b 22 53 53 53 4c 4c |400 B$=B|$+"SSSLL|
|000006d0| 22 3a 52 45 54 55 52 4e | 0a 34 30 39 20 3a 0a 35 |":RETURN|.409 :.5|
|000006e0| 30 30 20 50 52 49 4e 54 | 3a 50 52 49 4e 54 22 11 |00 PRINT|:PRINT".|
|000006f0| 45 4e 54 45 52 20 42 41 | 52 43 4f 44 45 20 55 53 |ENTER BA|RCODE US|
|00000700| 49 4e 47 20 53 20 46 4f | 52 20 54 48 45 20 53 48 |ING S FO|R THE SH|
|00000710| 4f 52 54 22 0a 35 30 35 | 20 50 52 49 4e 54 22 4c |ORT".505| PRINT"L|
|00000720| 49 4e 45 53 20 41 4e 44 | 20 4c 20 46 4f 52 20 54 |INES AND| L FOR T|
|00000730| 48 45 20 4c 4f 4e 47 20 | 4c 49 4e 45 53 2e 22 0a |HE LONG |LINES.".|
|00000740| 35 31 30 20 50 52 49 4e | 54 22 11 45 58 41 4d 50 |510 PRIN|T".EXAMP|
|00000750| 4c 45 3a 20 4c 53 53 4c | 53 53 4c 20 2e 2e 09 00 |LE: LSSL|SSL ....|
|00000760| 45 54 43 2e 22 0a 35 31 | 32 20 50 52 49 4e 54 22 |ETC.".51|2 PRINT"|
|00000770| 11 59 4f 55 20 43 41 4e | 20 41 4c 53 4f 20 55 53 |.YOU CAN| ALSO US|
|00000780| 45 3a 20 2b 20 46 4f 52 | 20 4c 20 20 41 4e 44 20 |E: + FOR| L AND |
|00000790| 2d 20 46 4f 52 20 53 2e | 11 22 0a 35 31 35 20 50 |- FOR S.|.".515 P|
|000007a0| 52 49 4e 54 22 2d 3e 22 | 3b 3a 4c 3d 30 3a 42 24 |RINT"->"|;:L=0:B$|
|000007b0| 3d 22 22 0a 35 32 30 20 | 47 4f 53 55 42 39 39 30 |="".520 |GOSUB990|
|000007c0| 0a 35 32 35 20 47 45 54 | 41 24 3a 49 46 41 24 3d |.525 GET|A$:IFA$=|
|000007d0| 22 22 54 48 45 4e 35 32 | 30 0a 35 32 36 20 49 46 |""THEN52|0.526 IF|
|000007e0| 41 24 3d 22 2b 22 54 48 | 45 4e 41 24 3d 22 4c 22 |A$="+"TH|ENA$="L"|
|000007f0| 0a 35 32 37 20 49 46 41 | 24 3d 22 2d 22 54 48 45 |.527 IFA|$="-"THE|
|00000800| 4e 41 24 3d 22 53 22 0a | 35 33 30 20 49 46 41 24 |NA$="S".|530 IFA$|
|00000810| 3d 43 48 52 24 28 31 33 | 29 41 4e 44 4c 3d 35 32 |=CHR$(13|)ANDL=52|
|00000820| 54 48 45 4e 35 35 30 0a | 35 33 35 20 49 46 28 41 |THEN550.|535 IF(A|
|00000830| 24 3d 22 4c 22 4f 52 41 | 24 3d 22 53 22 29 41 4e |$="L"ORA|$="S")AN|
|00000840| 44 4c 3c 35 32 54 48 45 | 4e 42 24 3d 42 24 2b 41 |DL<52THE|NB$=B$+A|
|00000850| 24 3a 4c 3d 4c 2b 31 3a | 50 52 49 4e 54 41 24 3b |$:L=L+1:|PRINTA$;|
|00000860| 3a 47 4f 54 4f 35 32 30 | 0a 35 34 30 20 49 46 41 |:GOTO520|.540 IFA|
|00000870| 24 3d 43 48 52 24 28 32 | 30 29 41 4e 44 4c 3e 30 |$=CHR$(2|0)ANDL>0|
|00000880| 54 48 45 4e 58 24 3d 4c | 45 46 54 24 28 58 24 2c |THENX$=L|EFT$(X$,|
|00000890| 4c 2d 31 29 3a 4c 3d 4c | 2d 31 3a 50 52 49 4e 54 |L-1):L=L|-1:PRINT|
|000008a0| 41 24 3b 3a 47 4f 54 4f | 35 32 30 0a 35 34 35 20 |A$;:GOTO|520.545 |
|000008b0| 47 4f 54 4f 35 32 30 0a | 35 35 30 20 50 52 49 4e |GOTO520.|550 PRIN|
|000008c0| 54 22 93 11 42 41 52 43 | 4f 44 45 3a 20 22 42 24 |T"..BARC|ODE: "B$|
|000008d0| 0a 35 35 32 20 50 52 49 | 4e 54 22 11 5a 49 50 2b |.552 PRI|NT".ZIP+|
|000008e0| 34 3a 20 22 3b 0a 35 35 | 35 20 46 4f 52 58 3d 32 |4: ";.55|5 FORX=2|
|000008f0| 54 4f 32 32 53 54 45 50 | 35 0a 35 36 30 20 53 24 |TO22STEP|5.560 S$|
|00000900| 3d 4d 49 44 24 28 42 24 | 2c 58 2c 35 29 0a 35 36 |=MID$(B$|,X,5).56|
|00000910| 35 20 47 4f 53 55 42 36 | 30 30 3a 4e 45 58 54 0a |5 GOSUB6|00:NEXT.|
|00000920| 35 37 30 20 50 52 49 4e | 54 22 2b 22 3b 3a 46 4f |570 PRIN|T"+";:FO|
|00000930| 52 58 3d 32 37 54 4f 34 | 32 53 54 45 50 35 0a 35 |RX=27TO4|2STEP5.5|
|00000940| 37 35 20 53 24 3d 4d 49 | 44 24 28 42 24 2c 58 2c |75 S$=MI|D$(B$,X,|
|00000950| 35 29 0a 35 38 30 20 47 | 4f 53 55 42 36 30 30 3a |5).580 G|OSUB600:|
|00000960| 4e 45 58 54 0a 35 38 35 | 20 50 52 49 4e 54 3a 50 |NEXT.585| PRINT:P|
|00000970| 52 49 4e 54 0a 35 38 36 | 20 54 3d 54 2d 49 4e 54 |RINT.586| T=T-INT|
|00000980| 28 54 2f 31 30 29 2a 31 | 30 0a 35 38 37 20 4f 4e |(T/10)*1|0.587 ON|
|00000990| 54 2b 31 47 4f 53 55 42 | 33 31 30 2c 33 32 30 2c |T+1GOSUB|310,320,|
|000009a0| 33 33 30 2c 33 34 30 2c | 33 35 30 2c 33 36 30 2c |330,340,|350,360,|
|000009b0| 33 37 30 2c 33 38 30 2c | 33 39 30 2c 34 30 30 0a |370,380,|390,400.|
|000009c0| 35 39 30 20 49 46 4d 49 | 44 24 28 42 24 2c 34 37 |590 IFMI|D$(B$,47|
|000009d0| 2c 35 29 3d 52 49 47 48 | 54 24 28 42 24 2c 35 29 |,5)=RIGH|T$(B$,5)|
|000009e0| 54 48 45 4e 35 39 35 0a | 35 39 31 20 50 52 49 4e |THEN595.|591 PRIN|
|000009f0| 54 09 0a 35 39 32 20 50 | 52 49 4e 54 22 44 49 47 |T..592 P|RINT"DIG|
|00000a00| 49 54 53 20 44 4f 20 4e | 4f 54 20 54 4f 54 41 4c |ITS DO N|OT TOTAL|
|00000a10| 20 56 41 4c 49 44 41 54 | 49 4f 4e 20 43 4f 44 45 | VALIDAT|ION CODE|
|00000a20| 2e 22 3a 53 54 4f 50 0a | 35 39 35 20 47 4f 54 4f |.":STOP.|595 GOTO|
|00000a30| 38 30 30 0a 35 39 39 20 | 3a 0a 36 30 30 20 49 46 |800.599 |:.600 IF|
|00000a40| 53 24 3d 22 4c 4c 53 53 | 53 22 54 48 45 4e 50 52 |S$="LLSS|S"THENPR|
|00000a50| 49 4e 54 22 30 22 3b 3a | 54 3d 54 2b 30 3a 47 4f |INT"0";:|T=T+0:GO|
|00000a60| 54 4f 36 31 35 0a 36 30 | 31 20 49 46 53 24 3d 22 |TO615.60|1 IFS$="|
|00000a70| 53 53 53 4c 4c 22 54 48 | 45 4e 50 52 49 4e 54 22 |SSSLL"TH|ENPRINT"|
|00000a80| 31 22 3b 3a 54 3d 54 2b | 31 3a 47 4f 54 4f 36 31 |1";:T=T+|1:GOTO61|
|00000a90| 35 0a 36 30 32 20 49 46 | 53 24 3d 22 53 53 4c 53 |5.602 IF|S$="SSLS|
|00000aa0| 4c 22 54 48 45 4e 50 52 | 49 4e 54 22 32 22 3b 3a |L"THENPR|INT"2";:|
|00000ab0| 54 3d 54 2b 32 3a 47 4f | 54 4f 36 31 35 0a 36 30 |T=T+2:GO|TO615.60|
|00000ac0| 33 20 49 46 53 24 3d 22 | 53 53 4c 4c 53 22 54 48 |3 IFS$="|SSLLS"TH|
|00000ad0| 45 4e 50 52 49 4e 54 22 | 33 22 3b 3a 54 3d 54 2b |ENPRINT"|3";:T=T+|
|00000ae0| 33 3a 47 4f 54 4f 36 31 | 35 0a 36 30 34 20 49 46 |3:GOTO61|5.604 IF|
|00000af0| 53 24 3d 22 53 4c 53 53 | 4c 22 54 48 45 4e 50 52 |S$="SLSS|L"THENPR|
|00000b00| 49 4e 54 22 34 22 3b 3a | 54 3d 54 2b 34 3a 47 4f |INT"4";:|T=T+4:GO|
|00000b10| 54 4f 36 31 35 0a 36 30 | 35 20 49 46 53 24 3d 22 |TO615.60|5 IFS$="|
|00000b20| 53 4c 53 4c 53 22 54 48 | 45 4e 50 52 49 4e 54 22 |SLSLS"TH|ENPRINT"|
|00000b30| 35 22 3b 3a 54 3d 54 2b | 35 3a 47 4f 54 4f 36 31 |5";:T=T+|5:GOTO61|
|00000b40| 35 0a 36 30 36 20 49 46 | 53 24 3d 22 53 4c 4c 53 |5.606 IF|S$="SLLS|
|00000b50| 53 22 54 48 45 4e 50 52 | 49 4e 54 22 36 22 3b 3a |S"THENPR|INT"6";:|
|00000b60| 54 3d 54 2b 36 3a 47 4f | 54 4f 36 31 35 0a 36 30 |T=T+6:GO|TO615.60|
|00000b70| 37 20 49 46 53 24 3d 22 | 4c 53 53 53 4c 22 54 48 |7 IFS$="|LSSSL"TH|
|00000b80| 45 4e 50 52 49 4e 54 22 | 37 22 3b 3a 54 3d 54 2b |ENPRINT"|7";:T=T+|
|00000b90| 37 3a 47 4f 54 4f 36 31 | 35 0a 36 30 38 20 49 46 |7:GOTO61|5.608 IF|
|00000ba0| 53 24 3d 22 4c 53 53 4c | 53 22 54 48 45 4e 50 52 |S$="LSSL|S"THENPR|
|00000bb0| 49 4e 54 22 38 22 3b 3a | 54 3d 54 2b 38 3a 47 4f |INT"8";:|T=T+8:GO|
|00000bc0| 54 4f 36 31 35 0a 36 30 | 39 20 49 46 53 24 3d 22 |TO615.60|9 IFS$="|
|00000bd0| 4c 53 4c 53 53 22 54 48 | 45 4e 50 52 49 4e 54 22 |LSLSS"TH|ENPRINT"|
|00000be0| 39 22 3b 3a 54 3d 54 2b | 39 3a 47 4f 54 4f 36 31 |9";:T=T+|9:GOTO61|
|00000bf0| 35 0a 36 31 30 20 50 52 | 49 4e 54 3a 50 52 49 4e |5.610 PR|INT:PRIN|
|00000c00| 54 22 11 2a 2a 20 45 52 | 52 4f 52 20 49 4e 20 45 |T".** ER|ROR IN E|
|00000c10| 4e 54 52 59 21 20 2a 2a | 22 3a 50 52 49 4e 54 53 |NTRY! **|":PRINTS|
|00000c20| 24 3b 22 20 2a 2a 2a 20 | 50 4f 53 49 54 49 4f 4e |$;" *** |POSITION|
|00000c30| 3a 22 58 3a 53 54 4f 50 | 0a 36 31 35 20 52 45 54 |:"X:STOP|.615 RET|
|00000c40| 55 52 4e 0a 36 39 39 20 | 3a 0a 38 30 30 20 50 52 |URN.699 |:.800 PR|
|00000c50| 49 4e 54 22 11 41 47 41 | 49 4e 3f 20 28 59 2f 4e |INT".AGA|IN? (Y/N|
|00000c60| 29 20 22 3b 0a | |) ";. | |
+--------+-------------------------+-------------------------+--------+--------+